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SATSSS61 SATS SYST SERV TESTS $SCH/CANWAK (SUCC 16-SEP-1984 00:59: AX/VMS Macro V04-00 Pa 
v04-000 3p 1984 2:33:86 LUETPSY. SREISAYSSSO1 .MAR: 1 a 
-TITL 4 FATSS38) SATS SYST SERV TESTS $SCH/CANWAK (SUCC S.C.) 
-IDENT ‘Vv04-000' 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS atte ees A LICENSE 4 MAY BE USED AND COPIED 
ONLY IN ACCORDANCE W TH 
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OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
TRANSFERRED. x 
te 

THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
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AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 


DIGITAL ASSUMES NO RESPONS Sf 


IBILITY FOR THE USE OR _ RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH 


LIT 
S NOT SUPPLIED BY DIGITAL. 
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FACILITY: SYSTST (SATS SYSTEM SERVICE TESTS) 
ABSTRACT: 


THIS MODULE CONTAINS SUBROU 
WITH Pyicone OBJ chrca TEST MODULE SATS 


—Nae 


T 
S 
0 TION O } $s 
CHECKING FOR AN SS$ L STATUS CODE, E 
AND EXPECTED FUNCTIONALITY PERFORMED. 


ENVIRONMENT: USER MODE IMAGE; NEEDS CMKRNL PRIVILEGE, 
DYNAMICALLY ACQUIRES OTHER PRIVILEGES, AS NEEDED. 


AUTHOR: THOMAS L. CAFARELLA, CREATION DATE: APR, 1977 
MODIFIED BY: 
v03-001 L0J0001 Larry D. Jone 23-Jun-1983 


Removed the quota list to forse the use of the 
default sysboot quotas. 
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SATS SYST SERV TESTS $SCH/CANWAK (SUCC Ig-SEp-1984 00 $9: 38 AX/VMS Macro V04-00 Page 2 Sf] 
DECLARATIONS ~SEP-1984 04: UeTPSY. se RCISATSSS61 MAR: 1 (1) 
.SBTTL DECLARATIONS 
: INCLUDE FILES: 
: SPRVDEF : PRIVILEGE BIT DEFINITIONS 
SPHDDEF t PROCESS HEADER OFFSETS 
SPQLDEF t PROCESS QUOTA CODES 
SPCBDEF : PCB LABELS 
SDIBDEF : DEVICE INFO BLOCK OFFSETS 


; MACROS: 


3 EQUATED SYMBOLS: 
ONE _SEC = 10*1000*1000 ; 10 MILLION 100-NANOSECOND UNITS (OR 1 SEC) 
OWN STORAGE: 
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00989680 
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SATSSS61 SATS SYST SERV TESTS $SCH/CANWAK (SUCC a oe it 4 00:33:38 AX/VMS Macro vos Page 4 
V04= DECLARATIONS “SEP-1984 04:32: UETPSY.SRCJSATSSS61 MAR; 1 (1) 
7 101 ~PSECT RWDATA,RD,WRT,NOEXE,LONG 
£80008 1 ¢ PRIVMASK: -BLKQ ; ADDR OF PRIVILEGE MASK (IN PHD) 
C 105 MBXCHAN: -BLKL 1 : CHAN. NO. FOR MAILBOX FOR Ms Tele PROCESS 
C 104 MBXCHANINFO: ; CHANNEL INFO RETURNED BY GETCHN 
74 3 105 - LONG vex LENGTH 
14" 001 1 § -ADDRESS , 
ge 14 «1 :BLKB piasx LENGTH 
00008C os 8 MBXUNIT: -BLKL 1 ; SAVE nog B Aes MAILBOX UNIT NUMBER 
€ 109 MBXBUFF: STRING 0,120 ; MAILBOX BUFFER FOR CREATED om By 4.8 
4's BBY 1 5 110 DEST _PIDADR: -BLKL 1 : DESTINATION PID ADDR, WRITTEN BY S 
0000114 011 111 ZEROPID: -BLKL 1 ; PID OF ZEROES 
S44 ed 114 116 SELFPID: - LON 0 ; PID OF THIS PROCES 
0 if 118 113 CREPID: -BLKL 1 ; PID OF CREATED PROCE 
00001 011C «114 SUBJPID: ~BLKL 1 ; PID OF SUBJECT PROCESS (SELF OR OTHER) 
00000128 01 115 ABS_3SEC: -BLKQ 1 ; WILL HOLD ABS TIM UE FOR NOW + 3 SECS 
00000130 01 18 ABS PAST: -BLKQ 1 ; WILL HOLD ABS TIME VALUE FOR TIME IN PAST 
00000131 0130 117 LONG_WAIT: -BLKB 1 ; LONG WAIT INDICATOR; O=NO LONG WAIT 
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vOu=000 COND IT TABLES mitt 7 2:33:86 UETPSY.SRCIJSATSSS61.MAR; 1 “ ay 
3 weeee CONDITION TABLES FOR SCH/CANWAK SYSTEM SERVICE eeeee 


COND  1,NOTARG,<PID ADDRESS>,- 
<NOT SPECIFIED>,- 
<SPECIFIED, NON-ZERO>,- 


-SBTTL CONDITION TABLES | 
<SPECIFIED, ZERO>,- | 


0 
- ADDRESS SUBJPID 
- ADDRESS ZEROPID 


COND  2,NOTARG,<PROCESS NAME ADDRESS>,- 
<SPECIFIED>,=- 
<NOT SPECIFIED>,- 


- ADDRESS —— 
- ADDRESS 


COND 3,NOTARG. <PROCESS TYPE>, = 
<SUBPROCESS> 


<DETACHED, DIFFERENT GROUP>,- 
<DETACHED, SAME GROUP, SAME MEMBER>,- 
<DETACHED, SAME GROUP, DIFFERENT MEMBER>,- 


- LONG gMFFFFFFFE ; PSEUDO-UIC 
| 


. 


FFFFFFFF ; 

0000000 - LON 5? - 
00000 ey “BLKL 1 : ule 5 
00000268 ~BLKL 1 ; UIC 
0000026F ~-BLKL 1 ; UIC 


COND  4,NOTARG,<ORDERING OF CANCEL/WAKE/REPEAT>,- 
<CANCEL < _ 
<WAKE, CANCEL, REPEAT>.- 
<WAKE, REPEAT. CANCEL>.- 
<WAKE, CANCEL>,- 


ABS _3SEC,DELTA_1SEC  ; DAYTIM, REPTIM ARG ADDRESSES 


000000A0' 00000090" . SS DELTA _1SEC,DELTA_3SEC ; DAYTIM, REPTIM ARG ADDRESSES 
00000000" 444 8 - ADDRESS ONES ; DAYTIM, REPTIM ARG ADDRESSES 
00000000°00000090° 030 - ADDRESS DELTA_1SEC.0 ; DAYTIM, REPTIM ARG ADDRESSES 


COND 5.NULL 
»-PSECT SATSSS61,RD,WRT,EXE 
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SSCH/CANWAK (SuCC Ue tb : 90:33:38 AX/VMS Mac 


«SBTTL TM_SETUP, TM CLEANUP 
FUNCTIONAL DESCRIPTION: 
nvinco ouge SELL aad Ro ERS aE SHEEN GEE, 
TEST MODULE EXECUTION. 
CALLING SEQUENCE: 

BSBW TM_SETUP BSBW TM_CLEANUP 
INPUT PARAMETERS: 

NONE 
IMPLICIT INPUTS: 

NONE 
OUTPUT PARAMETERS: 

NONE 
IMPLICIT OUTPUTS: 


TM_SETUP: COND TABLE INDEX REGISTERS (R2,3,4,5,6) CLEARED; 
ALL PRIVILEGES ACQUIRED. 


COMPLETION CODES: 
EFLAG SET TO NON-ZERO IF ERROR ENCOUNTERED. 
SIDE EFFECTS: 


SS CHECK AND ERR_EXIT MACROS CAUSE PREMATURE EXIT 
(VIA RSB) IF ERROR ENCOUNTERED. 


TM_SETUP: : 
CLRL Re : INITIALIZE 
CLRL OR : .. CONDITION 
CLRL RG > tse. TABLE 
CLRL RS to leeeee INDEX 
CLRL RO to iececcee REGISTERS 
BSBW MOD_MSG_PRINT : PRINT TEST MODULE BEGIN MSG 
MOVAL TEST _MOD_SUCC,TMD_ADDR : ASSUME END MSG WILL SHOW SUCCESS 
INSV  #SUCTESS7#0,#3,MOB_MSG_CODE ; ADJUST STATUS CODE FOR SUCCESS 
MODE 10,58, KRNL ; KERNEL MODE TO ACCESS PHD 
MOV aaCiL $c. : GET PROCESS HEADER ADDRESS 


L PHD ,R9 
MOVAL PHD$G PRIVMSK(R9) ,PRIVMASK ; GET PRIV MASK ADDRESS 
MODE FROM,5$ ; BACK TO USER MODE 

PRIV ADD, ALL ; GET ALL PRIVILEGES 


- Page (f 
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SATSSS61 SATS SYST SER TESTS SSCH/CANWAK (SUCC 16-SEP-1984 00: AX/VMS Macro v04-0 Page 7 
5045888 TM_SETUP, TM_CLEANUP oe tts 1 0:33: § yietPey.s Re Seay esses mar: 1 . (1) 

SSETPRN_S TEST _MOD_NAME_D ; SET PROCESS NAME 

SS_CHECR NORMAL ; CHECK STATUS CODE RETURNED FROM SETPRN 

SWAKE S SELFPID : GET MY PID 

SS_CHECK NORMAL 3; CHECK FOR NORMAL RETURN 

SHIBER_S ; UNDO ABOVE WAKE 

SS_CHECK NORMAL 3; CHECK FOR NORMAL RETURN 


; THE FOLLOWING CODE ESTABLISHES UIC'S IN THE CONDITION 3 TABLE 


o°o°c7g oo oo 
oo 
OOQCOCOCOCOCCOOCOOOOCCOCSCOCOoO -mM 


SAAS MMMIUIVIVIVL SPIN TMOMo~ DWH 


T SERV 
, ™C 
7 3 
2 : 
| 
124 § 
ae 
124 3 MODE 0,20$,KRNL ; KERNEL MODE TO ACCESS PCB 
90000000" 9 147 MOVL  a#SCH$GL_CURPCB,R9 : GET CURRENT PCB ADDRESS 
59  O0BC C9 1 § i MOVL  PCBSL YICCRI) RO : PICK UP UIC FROM PCB 
z 5 MODE FROM,2 3 «e. AND GET BACK TO USER MODE 
4 $ : RO NOW CONTAINS "MY" UIC 
SA 02.) —OoO9As«0154 § WOVZBL #2,R10 ; GET COND3 TABLE INDEX ER INTO A REG 
59 009933 000. BF 1 ? 40 ADDL3  #*X10000,R9,COND3_ECR10]'; PUT DIFF GROUP UIC INTO 3RD TABLE ELT 
A D6 0164 241 INCL R10 : POINT TO 4TH COND3 TABLE ELEMENT 
0000025B'EF4A 59 00 gi ‘ 4¢ MOVL Rg COND3_ECR10) + PUT MY ui INTO T LE 
A 06 01 4 INCL RIO, : POINT TO 5TH COND3 TABLE ELEMENT 
0000025B'EF4A 59 01 1 01 44 ADDL3 ,COND3_ECR10] : PUT DIFF MEMBER | VIC Into THE TABLE 
017 45 SCREMBX_S 5" CHANSMBXCRAN, LOGNAM=SUBJPRN, = ; Ger MAILBOX FOR PROCESS 
0179 46 fan $G=#120, PROMSK=#0, BUFQUO=#24 
O19E 24 SS_CHECK NORMAL ; CH ECK NORMAL COMPLETION 
O1CC 48 SGETCHN_ CHANCREXC T CHAN INFO (UNIT NUMBER) 
O1CC 249 PRIBUF =REXCHANINFO 
0166 250 SS_CHECK NORMAL CHECK NORMAL COMPLETION 
00000088'"EF O0000020'EF 3c 0214 251 MOUZWL NBYCHANINE +80 88U _UNIT{MBXUNIT ; SAVE MAILBOX UNIT NUMBER 
O21F 38 SBINTIM_S TIMBUF=TIME PAST,-- ; SET UP A PAST TIME IN ABSOLUTE FORMAT 
1F 85 TIMADR=ABS_PAST 
05 54 RSB- ; RETURN TO MAIN ROUTINE 
55 TM_CLEANUP: 
0 36 SDELMBX _S__MBXCHAN ; DELETE TERMINATION MAILBOX 
FDBC' 30 0241 a BSBW  ~MOD_MSG_PRINT : PRINT TEST MODULE END MSG 
05 0244 258 : RETURN TO MAIN ROUTINE 
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I 
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L 

T 
4 TABLE INDEX VALUES 
; RETURN TO MAIN ROUTINE 
; RETURN TO MAIN ROUTINE 


; RETURN TO MAIN ROUTINE 
; RETURN TO MAIN ROUTINE 
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N 
S 
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RESPECTIVELY. 
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C 

N 

I 

N 
~ CLEANUP 
RENT CON 
3,4,5, 


yR 
CONFLICT SET TO NON-ZERO IF COND TABLE CONFLICT DETECTED. 


IMPLICIT OUTPUTS: 


N C 

I 
E E 
M ) 
E L 

C 
N P 
I F 
K C 

BSBW CONDX 
WHERE X = 1,2,3.4,5 


INPUT PARAMETERS: 


TABLES 1, 


~SBTTL CONDITION SUBROUTINES = SETUP AND CLEANUP 
C 
( 
I 
F 
T 
OUTPUT PARAMETERS: 


FUNCTIONAL DESCRIPTION: 
A 
S 
S 
D 
0 
R2,3,4,5,6 PRESERVED 


CONFLICT = 0 
R2,3,4,5,6 CONTAIN C 
FOR COND 
COMPLETION CODES: 
NONE 


BSBW CONDX 
IMPLICIT INPUTS: 


N 
N 
I 
N 
E 
L 
C 
0 
CALLING SEQUENCE: 
NONE 
RSB 
CLEANUP 
RSB 
*" RSB 
CLEANUP 
RSB 


SIDE EFFECTS: 


OND2_ 


Oraev xswor-w~ . 
ere ee ee ee ee rr ee ere ee ee ere eer er ere ere er er eT er eT er a) 
DH—OPNT NOR. DHOOM CUM TFN OR. DP O— CUM TMOR. DHOOM TFN OR. DHOOM CUM TWN OR. OKO CUM TINO 
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COND1_ 
COND2 
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SATSSS61 SATS SYST SERV TESTS SSCH/CANWAK (SUCC 16-SEP-1984 00: AX/VMS Macro V04- Page 9 wn 
VO4 CONDITION SUBROUTINES = SETUP AND CLEANU g: “SEP- 7138 88: 33: 3 at ETPSY.S AESSaYSsser. MAR; 1 . (1) 
3 17 COND3:: 
02 4 re 4 18 CMPL R4 #2 ; DOES CONDITION 3 SPECIFY DIFFERENT GROUP ? 
5 4¢ 1 BEQL 20$ ; YES == THIS IS CONFLICT BECAUSE OF 
GE 0 : «2+ USE OF COMMON CLUSTERS 
OOOOOI7C*EFS2  QOOOOO1IC'SF 01 4E 1 FRyOIPTD COND EERE2 3 NON-ZERO PID SPECIFIED ? 
1 M3 2, ¢ BEQLU) 108 ; YES == PROCESS IS ‘OTHER’ 
000001BE ‘EFS D TSTL spuo2 ECRS) ; IS PROCESS NAME SPECIFIED 
10 12 ° : $$ BNEQ $ ; YES == SUBJECT PROCESS IS ‘OTHER’ 
6 ; 
? : ; PROCESS IS ‘SELF’ 
0000025B'EF44 QO000000'EF 01 ¢ : CMPL ONES ,COND3_ECR4] ; DOES come ition 3_SPECIFY ‘’SELF*’ ? 
1B «13 1 0 BEQLU COND Sx : YES THEN ALL 3 CONDIT'NS ARE CONSISTENT 
OE 11 ie 1 0$ ; NO -- ~ INDICATE CONFLICT & GET OUT 
ee $ 10$: 
fe : ; PROCESS IS ‘‘OTHER"’ 
0000025B°EF44 OQ0000000'EF 01 0275 § CMPL ONES ,COND3_ECR4] ; DOES CONDITION 3 SPECIFY ‘‘SELF’’ ? 
OB «O12 8 + 8 208 BNEQU COND$x ; NO == THEN ALL 3 CONDITIONS ARE CONSISTENT 
OOOO0000'EF  QOO000000'EF 90 QO 63 9 MOVB ONES, CONFLICT ; YES == INDICATE CONFLICT 
O28E 40 COND3X: 
05 O28E 4) RSB ; RETURN TO MAIN ROUTINE 
8 HH $s COND3_CLEANUP: : 
05 F 4 3; RETURN TO MAIN ROUTINE 
0290 44 COND4 
05 0290 45 ; RETURN TO MAIN ROUTINE 
0291 6 COND4_CLEANUP: : 
05 0291 4 RSB ; RETURN TO MAIN ROUTINE 
029 48 CONDS 
05 029 49 ; RETURN TO MAIN ROUTINE 
859 50 CONDS_CLEANUP: : 
05 9 51 RSB ; RETURN TO MAIN ROUTINE 
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T ° V04-0 
ORM_CONDS “SEP UETPSY.SR Coe ayessot MAR: 1 ) Tal 
$ 3 ei .SBTTL FORM_CONDS 
94 5 : FUNCTIONAL DESCRIPTION: 
94 : : M_CONDS FORMATS AND PRINTS INFORMATION ABOUT 
34 8 : THE CURRENT ef EMERY IN EACH OF THE CONDITION TABLES. 
34 60 ; CALLING SEQUENCE: 
34 6¢ ; BSBW FORM_CONDS 
34 64 : INPUT PARAMETERS: 
34 66 : NONE 
0 3 68 : IMPLICIT INPUTS: 
0294 370: R2,3,4,5,6 CONTAIN CURRENT CONDITION TABLE INDEX VALUES 
0294 371: one R Co OND TABLES 1,2,3,4,5, RESPECTIVELY. 
0294 cg : 1,2,3,4,5 : 
0294 373: ~ CONDX. T = TITLE TEXT FOR CONDX TABLE 
0294 74 ; CONDX"TAB = ELEMENT TEXT FOR CONDX TABLE 
0294 375: CONDX"C = CONTEXT OF THE CONDX TABLE 
347 £6 3 CONDX-E = DATA ELEMENTS OF THE CONDX TABLE 
a9 i: : OUTPUT PARAMETERS: 
SEE SE owe 
0994 38; : IMPLICIT OUTPUTS: 
0294 83 ; 
Soot aes | — 
0294 386 : COMPLETION CODES: 
0294 387: 
= oe) 
0 34 30 : SIDE EFFECTS: 
§ 94 36 : NONE 
0294 93 ; 
94 94 3 
94 395 
i Bs 
94 98 FORM_CONDS: : 
9% 39 $FAO_S MSG1_INP_CTL,FAO_LEN, FAO_DESC. TESTNUM 
B3 400 7 FOR mar CONDITIONS HEADER MSG 
FD4A* 30 B3 401 BSBW OUTPUT _MSG : AND PRIN 
4 «(0 1 0286 4 é CMPB =, ACOND1"C , #NULL : 18° CONDITION 1 NULL ? 
03 12 0289 4 BNEQU 1 : NO == CONTINUE 
OOBF 31 28 4 4 le BRW FORM_CONDSX : YES == SUBROUTINE IS FINISHED 
0099099000" EF $0998 Q131" EF D 3 4 6 " MOVAL ~=s«COND1_T st : SAVE ADDRESS OF CONDITION 1 TITLE FOR FAO 
00000000" EF 9000 136° EFS D co 4 MOVL COND Tie R2] MSG 8B ; SAVE ADDR OF COND 1 CURR TEXT. ELT FOR FAO 
00000000 ' EF 9 D5 4 ; MOVB #CON G_¢Tx SAVE CONDI 10N 1 CONTEXT FOR FAO 
dt 4 MOV_VAL CONDI Wx CONT EtR2), MSG baial; GIVE COND 1 DATA VALUE TO FAO 
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ATS SYST SERV TESTS SSCH/CANWAK (SUCC 1 = SEB-1984 00:59:38 VAX/ its Macr 
ORM_CONDS =SEP=1984 04:32: UETPSY.SRCJSATSSS61.MAR; 1 (1) VO: 
FD21" 30 DC = 410 BSBW WRITE_MSG2 : FORMAT AND WRITE CONDITION 1 MSG 
14 g 1 ODF 411 CMPB =, #COND2_C,, ANULL + IS CONDITION 2 NULL ? 
iF Ee 41g BNEQU 20$ + NO == CONTINU 
0096 3 ES 413 = W FORM_CONDSX + YES == SUBROUTINE IS FINISHED 
QOOO0000'EF  00000188°EF oD E7415 MOVAL COND ; SAVE ADDRESS OF CONDITION 2 TITLE FOR FAO 
00000000" EF 000001 9E EFL 3 Bp F2 416 MOVL COND STABERSS MSG_B ; SAVE ADDR OF COND 2 CURR TEXT ELT FOR FAO 
00000000'EF 00 90 FE 41 MOVE #CON Noe C,MSG_CTX SAVE CONDITION 2 CONTEXT FOR FAO 
05 418 MOV_VAL COND2_C,COND2_ECR3],MSG_ BATAT GIVE COND 2 DATA VALUE TO FAO 
FCF8" 30 09 419 BSBQ  WRITE-MSG ; FOR RMAT AND WR TE CONDITION MSG 
14 00 91 8 420 CMPB =, #COND3_C,#NULL : IS CONDITION 
0 fF 08 421 BNEQU 30$ > NO <= CON TINUE 
0060 3 0 Op 4 é is BRW FORM_CONDSX + YES == SUBROUTINE IS FINISHED 
Q0000000'EF  OO0001C6'EF DE 0 i 424 MOVAL COND3_1 sts : SAVE ADDRESS OF CONDITION 3 TITLE FOR FAO 
00000000'EF  000001D4°EF44 00 O318 425 MOVL COND The Ra) MSG_B ; SAVE ADDR OF COND 3 CURR TEXT ELT FOR FAO 
00000000'EF 00 90 0 4 6 MOVB  #CON ONC G_CTXT SAVE CONDITION 3 CONTEXT FOR FAO 
O32E 4 MOV_VAL COND3.C ‘0 NB3 “ECR4), MSG_ BATA GIVE COND 3 DATA VALU TO FAO 
FCCF® 30 O32E 428 SBQ —s WRITE MSG RMAT AND WRITE CONDITION 3 MSG 
16 00 91 0331 429 CMPB #CONDE C,#NULL : Se CONDITION 4 NULL 
47 13 0334 430 BEQLU FORM CONDSX ; YES == SUBROUTINE IS FINISHED 
00000000'EF  0000026F 'EF DE 0336 431 MOVAL  COND&_T + SAVE ADDRESS OF CONDITION 4 TITLE FOR FAO 
00000000'EF  O000028F'EF4S DO 0341 4 ‘ MOVL  COND4 CTABERS MSG_B ; SA AVE ADDR OF COND 4 CURR TEXT ELT FOR FAO 
00000000°EF 00 90 O34D 43 MOVE  #CON VE CONDITION 4 CONTEXT FOR FAO 
0354 434 MOV_VAL COND4_C ity: “FERS, MSG_ baTAl : GIVE COND 4 DATA VALUE TO FAO 
FCA9' 30 0354 435 BSBQ WRITE ~MSG2 ; FORMAT AND D WRITE CONDITION 4 MSG 
14 146 91 0357 436 CMPB = #CONDS_C, #NULL : IS CONDITION 5 NULL ? 
21. 13 «O35A = 437 BEQLU FORM. CONDSX : YES -= SUBROUTINE IS FINISHED 
Q0000000'EF  O000030B'EF DE 035c 438 MOVAL COND t SAVE ADDRESS OF CONDITION 5 TITLE FOR FAO 
00000000'EF  O000030B'EF46 DO 0367 439 MOVL fond CTABERBI, MSG_B : SAVE ADDR OF COND 5 CURR TEXT ELT FOR FAO 
00000000°EF 14 90 0373 440 MOVE 4#CON 6 CT VE CONDITION 5 CONTEXT FOR FAO 
037A 9 441 MOV_VAL CONDS t “EONDS ECR6],MSG -batal : GIVE COND 5 DATA VALUE TO FAO 
FC83" 30 O37A 44g WRITE-MSG2 > FORMAT AND URITE CONDITION 5 MSG 
037D 443 FORM_CONDSX: 
05 037D 444 RSB ; RETURN TO CALLER 
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UETPSY. REIS SATSSS61 


VERIFY 
TSTB CELAG ; SHOULD CONDITIONS BE PRINTED ? 
BEQL 4 + NO == CONTINU 
a BSBW FORM_CONDS : YES <= FMT & PRINT ALL CONDS FOR THIS T.C. 
MOVL  SELFPID, SUBUPID : ASSUME THE SUBJECT PID IS SELF 
CLRL ZEROPID + CLEAR ZERO PID 
CLRB  - LONG_WAIT : INITIALIZE LONG_WAIT INDICATOR 
CMPL GNES7COND3_ECR4] : IS PROCESS FOR THIS TEST CASE SELF ? 
BNEQU 7$ : NO == CONTINUE 
a BRW 10$ : YES == DON'T CREATE A PROCESS 
SCREPRC_S PIDADR: CREPID, PRCNAM=SUBJPRN, - 
UIC=COND3_ECR4], IMAGE=IMAGNAM 
MBXUNTS WMBRUNIT QUOTA=QUOTALIST | 
: CREATE THE SUBJECT PROCESS 
SS_CHECK NORMAL : ... AND MAKE SURE IT CREATED OK 
et MOUL  CREPID, SUBJPID : MAKE THE SUBUCT PID = THE ONE JUST CREATED 
MOVL  COND1_E R21.DE »DEST_PIDADR ; GET PID ADDRESS OUT OF TABLE 
MOVL § COND27ECR + PRCNAM ADDR INTO REG FOR INDIRECT REF 'RNCE 
MOV OND4“E Rey RP : Get DAYTIM, REPTIM ARG ADDRESSES INTO REGS 
SCANWAK § SUBJPID + ISSUE PRELIM CANWAK TO CLEAR THE DECKS 
§_CHECR NORMAL ; CHECK FOR NORMAL RETU 
Seestnn Ss DAYTIM= DELTA_10SEC, - : SET "WATCHDOG'' TIMER * TRIP IF LONG WAIT 


ASTADR=WATCH_AST 
SS_ CHECK 


NOR MA 3 

SeET TTIM_S ed SEC : 
S_CHEC aa RMAL 3 
ADBL S SSEC, AB $_3SEC ; 
ADWE POS “Fee Char ABS _seetese 3 


weeeee SYSTEM SERVICE CALL WHICH IS THE 


; CHECK FOR NORMAL RETURN 
; GET ‘ery TIM 


E 
FOR NORMAL RETURN 
ADD 3 SECONDS TO LOWER 


LONGWORD 
; ADD POSSIBLE CARRY TO HIGHER LONGWORD 
; ABS_3SEC IS NOW VALID IF USED IN SSCHDWK 


SUBJECT OF THIS TEST CASE *#*##* 


SSCHDWK_S oe eene =aDEST VREPTING RIE 


- CODE EXPECTED ? 

NO -- LOAD UP EXPECTED AND ... 
D VALUES, THEN EXIT 

PID RETURNED 54 SCHDWK ? 

YES == IS iy THE CORRECT ONE ? 


NTINU 
NO --LOAD UP EXPECTED AND 
ECEIVED VALUES, THEN EXIT 


IM=(R7), REPT 
CMPL RO, #SS$_NORMA CODE RECEIVED = 
BEQLU 1 : YES == CONTINUE 
mOVL #SS$_NORMAL ,EXPV : 
MOV R V RECEIVE 
ou ERR “EXIT LONG, <INCORRECT STATUS tobe RETURNED FROM SCHDWK> 
TSTL DEST_PIDADR ; 
BEQL ; NO == KEEP 
CMPL SUBJPID @DEST_PIDADR ; 
BEQL 0$ ; YES -- CO 
POvL SUBJPID ,EX Pv : 
@DEST_PIDADR,RECV _ 
a ERR. EXIT LONG; sCINCORREET” PID RETURNED BY SCHDWK> 


ec eer 5. $s FNsgse : 


CLEAR EVENT pL 32 
KEEP GOING IF OK 


SA’ 
vO 
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SATSSS61 ATS SYST SERV TESTS S$SCH/CANWAK (SUCC 16-SEP-19 9: AX/VMS M 04-00 Pp 4 SA) 
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SATS S$ S 4 1 
v04=000 VERIFY =5 4 UETPSY.SRCJSATSSS61.MAR; 1 ( 
oe 3 60 _ S3_CHECK NORMAL ; USE SS_CHECK MACRO TO TERMINATE TEST MOD 
637 6¢ SSETIMR_S EFNs #32 ; SET A 2=SECOND TIMER 
06 7 56 AYTIMSDELTA. 2SEC 
648 564 $S_CHECK NORMAL : CHECK FOR NORMAL RETUR 
0676 65 SWAITFR_S eee ; WAIT 2 SECONDS TO ALLOW PROPER SYNCH'N 
67F 66 SS_CHECR N : CHECK FOR CORRAL RETUR 
Q0000110'EF D4 6A %4 CLAL 2EROPID : CLEAR OUT ZERO PID SCHDUK MAY HAVE SET 
068 $9 ; teeeee SYSTEM SERVICE CALL WHICH IS THE SUBJECT OF THIS TEST CASE *eeeee 
Qos 4 SCANWAK_S PIDADR=@DEST_PIDADR, rE UARCEL”SeneouLeD UAKE OR REPEAT 
00000000'8F 50 p1 06¢ 4 CMPL = RO, #SS$_NORMAL CODE RECEIVED = CODE EXPECTED ? 
61 13 06C9 574 BEQLU 30§ i VES == CONTINU 
00000000'EF  O0000000'8F 00 06¢B 323 MOVE” ¥#SS$_NORMAL ,EXPV NO == LOAD UP UE XPECTED AND ... 
QOO0000000'EF 50 DO 06D6 2 MOVL —_RO,RECV . RECEIVED VALUES, THEN EXIT 
9600 207 ase ERR_EXIT LONG, <INCORRECT STATUS tobe RETURNED FROM CANWAK> 
0000010c'"EF 05 O72C 579 TSTL DEST_PIDADR ; PID RETURNED BY CANWAK ? 
8 13 0732 580 BEQL 0$ + NO == KEEP GOIN 
QOOO010C'FF OOOOO1IC'EF D1 0734 581 CMPL  SUBJPID,@DEST_PIDADR : YES == I$ IT THE CORRECT ONE ? 
13 073F 382 BEQL 408 > YES == CONTINUE 
QOOO0000"EF  OO00011C'EF Dd 0741 58 MOVL § SUBJPID EXPY NO =--LOAD UP EXPECTED 
Q0000000"EF OO00010C'FF DO O74c 584 MOVL aDEST T PIbA RECEIVED VALUES, THEN EXIT 
0737 385 iia ERRe _EXIT PENGTCINCORREET. PID RETURNED BY CANWAK> 
0000011C"EF 00000118'EF D1 079C 587 CMPL  CREPID,SUBJPID : WAS A _PROCESS CREATED ? 
03 13 O7A7 588 BEQLU 50$ : YES == GO WAIT FOR IT TO END 
O14F = 3 O7A9 389 oe BRW 60$ : NO -- GO ISSUE HIBER 
O7ac 591 SASCEFC_S EFN=#64, NAME=CLUSTER ; ASSOC WITH CLUSTER FOR PROCESS SYNCHRO'N 
07¢ 29¢ SS_CHECR NORMAL : CHECK FOR NORMAL STATUS 
O7F1 59 SSETEF S$ EE NCAGS : LET CREATED PROC EXIT 
O7FE 59% SS CHECK WASCLR : BIT 65 SHOULD HAVE BEEN CLEAR 
beet 595 SWAITFR_S EFN=#64 3 WAIT UNTIL bey ED PROC CAN HIBERNATE 
0839 596 SS_CHECR NORMAL : CHECK FOR N RETURN 
0867 597 SDACEFC_S EFN=#64 ; DISASSOC ctu eTeR 
0874 598 SS_CHECR NORMAL CHECK FOR NORMAL STATUS 
08A2 599 $QTOW_S CHAN=MBXCHAN, FUNC=#10$ -READVBLK, ” 
O8A2 600 P1=MBXBUFF+8, P2=MBXB 
08CB 601 J WAIT FOR CREATED PROCESS TO SEND MAIL 
08CB 60¢ $S_CHECK NORMAL + CHECK FOR NORMAL STATUS COD 
35 «(11 OBF9 603 pos BRE 70$ : ... AND GO SEE IF WE WERE STUCK IN HIBER 
O8F 605 SHIBER_S : HIBERNATE TO SATISFY OUTSTANDING WAKE 
99 606 SS_CHECK NORMAL : «e. MAKE SURE IT FINISHED OK 
Sahay Zoe 
9 6 609 : CHECK TO SEE IF STUCK IN HIBER ...... IF LONG WAIT 
9 610 ; IS SET AND DID NOT EXPECT LONG WAIT, ISSUE ERR_EXIT 
; 611 : SAYING "STUCK IN H ; 
00000130'EF 95 09 gis TSTB LONG WAIT : DID WE WAIT A LONG TIME ? 
¢ 1 9 6 614 BEQL  VERIFYX + NO == THIS TEST CASE IS FINISHED 
ds 09 615 TSTL : YES == DID WE EXPECT TO REMAIN IN HIB'N ? 
24 93A 616 BEQL VERIFYX : YES == THAT'S OK 


D111 
SATSSS61 SATS SYST SERV TESTS $SCH/CANWAK (SUCC 16-S AX/VMS Macro V04-00 Pa 15 
v0u=000 VERIFY $7 3Eb- 71384 be 33: 35 LUETPSY. SRCIJSATSSS61.MAR; 1 We (1) 
ates 94 093 617 CLRB hecy ; NO -= some TRIS WENT WRONG . LOAD UP 
QOOOO00'EF 94 094 018 CLRB RECV EXPECTED & RECEIVED VALUES, THEN EXIT 
94 61 ERR_EXIT BYTE, <SUBJECT PROCESS was’ LEFT IN HIBERNATION> 
BaRe 6¢0 VERIFYX: 
05 0994 621 RSB ; RETURN TO CALLER 
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$ 
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xX 
Pp 
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ENT COND 


4,5, 
= ADDRESS OF TABLE OF DATA VALUES FOR CONDX 


E. IF THE CONTEXT OF TABLE X IS A SYSTEM SERVICE 


ARGUMENT, THE ARGUMENT NAME MAY BE USED AS A SYNONYM 


FOR CONDX_E. 


f 
h 
OUTPUT PARAMETERS: 


wweEew a a cm 


EFLAG SET TO NON-ZERO IF ERROR ENCOUNTERED. 


.SBTTL VFY_CLEANUP 


FUNCTIONAL DESCRIPTION: 
H 
U 
Pp 
T 
M 
$ 
BSBW VFY_CLEANUP 
INPUT PARAMETERS: 


NONE 
IMPLICIT OUTPUTS: 


F 
H 
E 
V 
F 
CALLING SEQUENCE: 
NONE 
IMPLICIT INPUTS: 
2 
0 
NONE 
COMPLETION CODES: 
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SATS 
V04= 
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0000011C "EF 


00000118" EF 
OF 


Fil 
SATS eh © ee TESTS $SCH/CANWAK (SUCC ign see 13 
VFY_CLEAN SEP=19 


Be 00:32:50 LETPSY. SACISAT 


0 
S 


335 eh ; SIDE EFFECTS: 
38 $3 ; SS_CHECK AND ERR_EXIT MACROS CAUSE PREMATURE EXIT 
144 ony 3 (VIA RSB) IF ERROR ENCOUNTERED. 
99 or¢ i-- 
995 67 
995 674 
995 675 
99 676 VFY_CLEANUP: : 
995 67 SCANWAK _S SUBJPID : 
9A4 678 SCANTIMS ; CANCEL WATCHDOG TIMER 
D1 O9AD 67 CMPL  “CREPID,SUBJPID : WAS A PRO 
12 0988 680 BNEQU  VFY CLEANU PX : NO -- JUST E 
9BA 681 SDELPRC_S SOBJPID : YES == DELETE IT 
o9¢9 68¢ VFY_CLEANUPX : 
05 0909 6 RSB : RETURN TO CALLER 
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CANCEL ANY possins OUTSTANDING WAKES 


se cade FOR THIS TEST CASE ? 


; WAKE THE (PRESUMABLY) HIBERNATING PROCESS 


T WHEN THE 
HEN 

N 

E 

M 

E 

D 
; INDICATE THAT THE AST WAS ENTERED 
° eee AND GET OUT 


E 
E 
E 
I 
F 
8 
K 
; ENTRY MASK 


611 
(SUCC ' 
N 
G 
0 
I 
R 
C 
A 
C 
N 
ONES ,LONG_WAIT 


.SBTTL WATCH_AST 

D 
ER 
LE 
§ 

NT 
N 
SH 
CK 
N 
AU 
0 


SWAKE_S SUBJPID 


MOVB 
RET 
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Symbol table : 
4 CTLSGL_PHD aeeeeeee x 
SSSCHARS . 5 : ‘ : DELTA_TOSEC ABR 
4 DELTAT1SEC 90 R 
SSSCHARS1 s 14 DELTA 2SEC 98 R 
SeSttare . 14 DEL TATSeee AD R 
Seetwane DELTA~QSEC BO R 
SSSCHARSG 2 DELTAS #3 oe 
SSSCOND A . DEST _PIDADR O0010¢ R08 
STRINGS = 1 DIBSR_LENGTH = 0 00074 
+++] 5 DIBSW-UNIT = 0000000¢ 
S$SSSTRINGSZ 2 D1BSy. Sesees a ae 
$$T) ~ i EXPV eeareene x oe 
ere St a nes se 
iE = 00000001 6G FORM_CONDS 90000 94. RG 04 
ont eeeeeeee =X 04 FORM” CONDSX 000037D R 4 
Ls revere AS EL IMAGRAM 00000065 R 2 
CHA CO 04 10$_READVBLK eeeesese =X 04 
CLUSTER 00000084 R02 = 00000004 6 
CLUSTER epee ae LONG WAIT 00000150 R = (3 
CONDT « 00000245 RG 04 MBXBOF F 9000008C R 03 
sine gS “ Soo00ee6 RG = 04 MBXCHANINFO 0000000¢ R 03 
COND 1 _ CLEANUP 00017C R 03 MBXUNIT 00000088 R 03 
Ho 3 00 03 MOD_MSG_CODE aeneeeee =X ©6064 
ag 500001 Th O88 MOD-MSG-PRINT seeenere =X 06 
CONDI71 0000013E R 03 MSGT_INP_CTL 00000019 R 02 
COND1 “TAB 90000247 RG Oe MSG3~ERR-CTL 00000039 RG 03 
COND 3 MSG KR 7 eeeeeree x 04 
COND © ° 00000 00 04 MSG’ B RARARRERE x 04 
CONDe _ CLEANUP i944 ts \ 03 MSG CTXT eekeenee xX 04 
CONDS 7H 00000198. RG 03 NOTARG = 00000000 6G 
COND S71 00188 R03 ULL = 00000014 6 
ag SOOODISE ROS pescesee:- 2 
fons" 90000269 RG 04 ONE. SEC = 00989680 
COND 0000028E R 04 OUTPUT _MSG ekeeeere 04 
FONDS. $0000000 PCBSL_OIC = 0000008C 
COND 37 CLEANUP ~ 90000 BERG 04 PCV ~ soonest 
COND SA 09000108 RG O83 Pos ssc 9000088 R 02 
COND 3-1 000 O1be R 63 PRIV ARGS = 0000000 
tonpa7 000 30 RG 04 PROCESS_ERR aeeeeeee =X = 04 
COND4 00 QUAD = 00000008 6 
COND4 _¢ - 99 RG 04 RECV grkeeree x 04 
FONDS CLEANUP REST REGS gketeeee x 04 
C “1 iE RG 6 SAVE-REGS eeererer YX 04 
CONDE nT FR SCHSCI. CORPCB teeseres =X 04 
COND4_T O0028F R SELFPID 00000114 R 3 
tons” R 4 SS$_NORMAL eenceses 6§ 6 
CONDS 4 G SSS" WASCLR eeeerene xX 4 
CoN : 93 RG 4 SUBJPID $00 O11C R 3 
COND5~ CLEANUP RG rt +4 0000051 R 
CONDE" R SUCCESS ececeese §6F 
CONST R SYSSASCEFC teeeeeee GX 04 
CONF TCT eereeree =X 04 SYSSBINTIM aeemenes: oe r 
CREPID 00000118 R 3 SYSSCANTIM 
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SYSSFAO 

sv eees ou 
SYSSGETTIM 
SYSSHIBER 
SYS$Q10W 
SYSSSCHDUK 
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00000009 R 
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CPU Time 
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AX/VMS 


Page 2 SA 
UETPSY. . 2 


Macro ¥04-00 
SRCIJSATSSS61.MAR;1 
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FF FRR RR RR RNVENNS RRR RRR RRR RRP PPP RPP RE 


PSECT No. Attributes 
0 ( 9} NOPIC “USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
1 « -) NOPIC USR CON ABS~ LCL NOSH EXE WRT NOVEC BYTE 
; ( §°} NOPIC USR CON REL LCL NOSHR NOEXE RD NOWRT NOVEC LONG 
( -) NOPIC USR CON REL LCL NOSHR NOEXE' R&D WRT NOVEC LONG 
4 ( 4.) NOPIC USR CON REL LCL NOSHR EXE’ RD WRT NOVEC BYTE 
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: Performance indicators H 


Elapsed Time 


80:00:02:32 
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Pass 1 329 :00:10.9 :00:18.26 
Symbol table sort :00: § 7:00:00. 
ass 16 7:00:02. :00:42. 
Symbol table output 1 :00:00.1 :00:00.1 
Psect synopsis output :00:00. :00:00. 
Cross-reference output 3: :00. :00:00. 
Assembler run totals 65 :00:15. 2:01:05. 


The york ing set _ Limit was 1500 pages. 

58672 bytes_(115 pages) of virtual memory were used to buffer the intermediate code. 

There were 30 pages of symbol table space allocated to hold 512 non-local and 76 local symbols. 
source Lines were read in Pass 1, producing 29 object records in Pass 2. 

56 pages of virtual memory were used to define 46 macros. 


Femooeooeeececes eceececece eoeen+ 
; Macro Library statistics ! 
Macro Library name Macros defined 
“$52 28DUACE: SHRLIBIJVETP.MLB;1 8 
_$255$0UA28: (SYS.OBJILIB.MLB; 1 § 
$255$DUA28: CSYSLIBISTARLET.MLB;2 3 
TOTALS (all Libraries) 43 


943 GETS were required to define 43 macros. 
There were no errors, warnings or information messages. 


acro ¥06<00 
RCJSATSSS61.MAR;1 


MACRO/LIS=LIS$:SATSSS61/0BJ=0BJ$:SATSSS61 MSRC$:SATSSS61/UPDATE=(ENH$: SATSSS61) +EXECML$/LIB+SHRLIB$:UETP/LIB 
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